home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Plus 1995 #1
/
Amiga Plus 1995 #1.iso
/
fish-disketten
/
fish_941-950
/
d947
/
mand2000d
/
arexx
/
zoomout10percent.mnd2
< prev
next >
Wrap
Text File
|
1994-12-13
|
885b
|
21 lines
/* This script is supplied with the Mand2000 demo and release */
/* versions and may be freely distributed. */
/* Copyright 1993 Cygnus Software. */
/* Zoom fractal window in ten percent. */
portname = address() /* Retrieve the current port name. */
/* If the portname does not start with MAND2000 then this script must */
/* have been run with rx, rather than from Mand2000. Therefore we */
/* need to set the port name. We do not always set the port name */
/* because it is better to let Mand2000 set it for us, so that */
/* this script can be used with windows other than the one with */
/* port name MAND2000.1. */
if (left(portname, 8) ~= "MAND2000") THEN
address 'MAND2000.1'
/* This zooms in towards the center of the screen by ten percent. */
/* The pixel location to zoom in towards can be specified, as can */
/* different zoom amounts. */
zoomouttopixel amount 1.10